;2008-05-20
;Av Benjamin Ingberg och Patrik Johansson
;
;Bestämer hur alla AI's som klassifiserars som "monster" skall interactgeara med sin omgivning

(load "character.scm")

(define monster%
  (class character%
    (init x y w h sprites)
    
    (super-new [x x][y y][sprites sprites][w w][h h])
    
    (define/override (object-interaction obj board)
      (let ((type (send obj get-type)))
        (cond ((or (eq? type 'normal)
                   (eq? type 'monster)) #t)
              ((eq? type 'player) (send board kill obj)
                                  #t)
              (else #f))))
              
               
      
    (define/override (get-type)
      'monster)))
                                        
                    
      